home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 3 / Digital_Talk_03_1993-10-18_Digital_Talk_de_Side_B.d64 / blocks free .bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  290b  |  11 lines
  1. 0 rem ///  vor dem starten muss das prg
  2. 1 rem ///  >blocks f*.obj< geladen sein
  3. 2 rem ///                          (bj)
  4. 3 rem ---------------------------------
  5. 4 :
  6. 5 :
  7. 10 open 1,8,15,"i:":close 1
  8. 20 sys 49152
  9. 30 leer=peek(253)*256  +  peek(252)
  10. 40 print "[147]     es sind noch "leer" blocks free!"
  11.